PC Gamer (Italian) 46/PC Gamer IT CD 46 2-2.iso/utility/notepads/_SETUP.1/Notepads.exe/0/RCDATA/TFRMAEMAIL/TFRMAEMAIL.txt

Text File | 1999-09-08 | 4KB | 181 lines

object frmAEmail: TfrmAEmail
  Left = 35
  Top = 206
  Width = 219
  Height = 300
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'Email Addresses'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = mnuMain
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lstAddress: TListBox
    Left = 0
    Top = 29
    Width = 211
    Height = 221
    HelpContext = 1101
    Align = alClient
    ItemHeight = 13
    TabOrder = 0
    OnClick = appEventsActiveFormChange
    OnDblClick = EmailAddress
  end
  object barAddress: TSpeedBar
    Left = 0
    Top = 0
    Width = 211
    Height = 29
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Comic Sans MS'
    Font.Style = []
    Options = [sbFlatBtns]
    BtnOffsetHorz = 3
    BtnOffsetVert = 3
    BtnWidth = 24
    BtnHeight = 23
    Images = frmMain.lstImages
    BevelOuter = bvNone
    PopupMenu = pumToolBar
    TabOrder = 1
    InternalVer = 1
    object secFile: TSpeedbarSection
      Caption = 'File'
    end
    object btnUse: TSpeedItem
      Caption = 'Use Address'
      Enabled = False
      Hint = 'Use address in email'
      ImageIndex = 3
      Spacing = 1
      Left = 3
      Top = 3
      Visible = True
      OnClick = EmailAddress
      SectionName = 'File'
    end
    object btnDelete: TSpeedItem
      Caption = 'Delete Address'
      Enabled = False
      Hint = 'Delete highlighted address'
      ImageIndex = 2
      Spacing = 1
      Left = 35
      Top = 3
      Visible = True
      OnClick = DeleteAddress
      SectionName = 'File'
    end
    object btnClose: TSpeedItem
      Caption = 'Close'
      Hint = 'Close email addresses'
      ImageIndex = 50
      Spacing = 1
      Left = 67
      Top = 3
      Visible = True
      OnClick = EmailAddress
      SectionName = 'File'
    end
  end
  object mnuMain: TMainMenu
    Images = frmMain.lstImages
    Left = 52
    Top = 164
    object mniAddresses: TMenuItem
      Caption = '&Addresses'
      object mniUse: TMenuItem
        Caption = '&Use'
        Enabled = False
        GroupIndex = 2
        Hint = 'Use email address'
        ImageIndex = 3
        OnClick = EmailAddress
      end
      object mniBar1: TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object mniDelete: TMenuItem
        Caption = '&Delete'
        Enabled = False
        GroupIndex = 2
        Hint = 'Delete highlighted address'
        ImageIndex = 2
        OnClick = DeleteAddress
      end
      object mniBar3: TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object mniCancel: TMenuItem
        Caption = '&Close'
        GroupIndex = 2
        Hint = 'Close email addresses'
        ImageIndex = 50
        OnClick = EmailAddress
      end
    end
  end
  object plcEmail: TFormStorage
    IniFileName = '\Software\JSoft Consulting\NotePads+'
    IniSection = 'Email Addresses'
    UseRegistry = True
    StoredProps.Strings = (
      'mniExplore.Checked'
      'mniStandard.Checked'
      'lstAddress.Sorted'
      'puiSort.Checked'
      'barAddress.Options')
    Left = 108
    Top = 164
  end
  object pumToolBar: TPopupMenu
    Left = 80
    Top = 164
    object mniExplore: TMenuItem
      Caption = 'I&Explorer Style'
      Checked = True
      GroupIndex = 4
      Hint = 'Display too bar with flat buttons'
      RadioItem = True
      OnClick = UpdateMenus
    end
    object mniStandard: TMenuItem
      Tag = 1
      Caption = 'S&tandard Style'
      GroupIndex = 4
      Hint = 'Display tool bar with raised buttons'
      RadioItem = True
      OnClick = UpdateMenus
    end
    object puiBar1: TMenuItem
      Caption = '-'
      GroupIndex = 4
    end
    object puiSort: TMenuItem
      Caption = 'Sort email addresses'
      Enabled = False
      GroupIndex = 4
      Hint = 'Sort email addresses'
      OnClick = SortAddress
    end
  end
  object appEvents: TAppEvents
    OnActiveFormChange = appEventsActiveFormChange
    Left = 136
    Top = 164
  end
end